home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 18 / CU Amiga Magazine's Super CD-ROM 18 (1997)(EMAP Images)(GB)[!][issue 1998-01].iso / CUCD / Programming / AmigaE / Src / Tools / Useful / sendexplorer.e < prev    next >
Encoding:
Text File  |  1997-05-31  |  517 b   |  17 lines
  1. OPT MODULE
  2.  
  3. MODULE 'other/sendrexx'
  4.  
  5. CONST MAXLINE=512
  6.  
  7. EXPORT PROC sendExplorer(addr,obj=NIL,repPort=NIL,message=NIL,quiet=FALSE)
  8.   DEF s[MAXLINE]:STRING
  9.   StringF(s, '''DISPLAY \s$\h OBJECT "\s" MESSAGE "\s"''',
  10.           IF quiet THEN 'QUIET ' ELSE '', addr,
  11.           IF obj THEN obj ELSE '', IF message THEN message ELSE '')
  12. ENDPROC rx_SendMsg('EXPLORER',s,repPort)
  13.  
  14. EXPORT PROC quitExplorer(repPort=NIL) IS rx_SendMsg('EXPLORER','''QUIT''',repPort)
  15.  
  16. EXPORT PROC isExplorerRunning() IS FindPort('EXPLORER')<>NIL
  17.